home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / bgft302b.zip / BGFT300B.EXE / BGFTUIQM.SCR < prev    next >
Text File  |  1993-03-03  |  2KB  |  30 lines
  1. ; Version 3.02 BackGround File Transfer
  2. ; BGFTUIQM.SCR: Qmodem 4.52 script for BGFT Xmodem-1K Upload.
  3. ; Copyright (c) 1991-1993 Dirac Systems
  4. ; Qmodem is a trademark of Mustang Software Inc.
  5. ;
  6. CLRSCR
  7. DISPLAYLN " "
  8. DISPLAYLN "Copyright (c) 1991-1993 Dirac Systems  \ /"
  9. DISPLAYLN "------------------------------------- - o -"
  10. DISPLAYLN "                                       / \"
  11. DISPLAYLN "BGFT Xmodem-1K Upload External Protocol"
  12. DISPLAYLN " "
  13. ASSIGN 0 1                      ; USER DEFINED COMM PORT.
  14. ASSIGN 1 1200                   ; USER DEFINED BAUD RATE (Qmodem $SPEED?).
  15. ASSIGN 2 "BGFTOPT /Q"           ; Quiet mode (don't print out results).
  16. ASSIGN 3 " /A"                  ; Acknowledge error, if any.
  17. ASSIGN 4 " /R"                  ; Reconnect COMM port.
  18. ASSIGN 5 "$2$3$4$0"             ; Concatenate the commands.
  19. ASSIGN 6 " /B"                  ; Set baud rate.
  20. DISPLAY "INPUT XMODEM-1K UPLOAD FILE NAME: " ; Get filename for Xmodem.
  21. GET 0 12                        ; USER INPUT XMODEM FILENAME.
  22. ASSIGN 7 " /U$0"                ; Download file entry.
  23. ASSIGN 8 " /~"                  ; Set protocol.
  24. ASSIGN 9 "4"                    ; USER DEFINED PROTOCOL (Xmodem-1K Upload).
  25. ASSIGN 2 " /S"                  ; Start file(s) transfer.
  26. ASSIGN 3 "$5$6$1$7$8$9$2"       ; DOS command.
  27. DISPLAYLN "$3"                  ; Show the command.
  28. DOS "$3"                        ; Run BGFTOPT.EXE with appropriate command.
  29. SYSTEM X                        ; Exit QMODEM without hanging up.
  30.